home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 20 / setup.exe / {app} / plugins / XQ Recent Doc History.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-28  |  1.4 KB  |  43 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Start Menu\Options"
  5. "NAME"="Recent Documents History"
  6. "VERSION"="1.05"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Create Recent Document shortcuts"
  9. "DESCRIPTION 1"="By default, Windows with Internet Explorer 4.x or higher, creates a shortcut to a recently visited document. Check the Box to prevent creation of the Shortcut. Uncheck [clear] the Box to enable shortcut creation."
  10. "DESCRIPTION 2"="To make it short: check this setting and your "Documents" menu will always be empty."
  11. "AUTHOR"="Ojatex@aol.com"
  12. "CONTACTURL"="http://members.aol.com/ojatex/"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"=" "
  15. "COMMENT 2"="Thanks to Pierre Szwarc for the Tip and settings."
  16.  
  17. Sub Plugin_Initialize 
  18.  
  19.  i=RegReadValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecentDocsHistory") 'Bnry=01000000=default 
  20.  if i=0 or IsEmpty(i) then SetUIElement 1,true
  21.  
  22. End Sub
  23.  
  24. Sub Plugin_CheckData(ElementIndex)
  25. End Sub
  26.  
  27. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  28.  
  29.  b=GetUIElement(1)
  30.  if b=true then
  31.     Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecentDocsHistory","00000000",3)
  32.  else
  33.     Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecentDocsHistory","01000000",3)
  34.  end if
  35.  
  36. End Sub
  37.  
  38. Sub Plugin_Terminate 
  39. End Sub
  40.  
  41.  
  42.  
  43.